home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / johnsalp.zip / JOHNSALP.BAS (.txt) next >
QuickBASIC Tokenized Source  |  1990-08-07  |  22KB  |  103 lines
  1. frame
  2. bottom
  3. right
  4. horiz
  5. hline
  6. name\
  7. color160
  8. letter
  9. toupper
  10. wrcounte
  11. sound
  12. screentest
  13.     BadScreen
  14. EgaMode
  15. FALSE
  16. wrong
  17. cright
  18. cwrong
  19. xletter
  20. NMALLOC
  21. ucase
  22. *Main childs Alphabet game 
  23. use this code for any use you like i wrote it for my 4 year old son
  24. it might have some bugs so feel free to change it any way you like
  25. its in qb45 and i'm not much on comments so you'll have to figuree
  26. it out the best you can but it's pretty simple anywayv
  27. Bruce Loflen, Data Wold 
  28. Enter your Name:
  29. frame
  30.    the frame subprogram draws a rectangular double-line frame on
  31.    THE SCREEN, USING "TEXT-GRAPHICS" CHARACTERS FROM THE
  32.    IBM ex%tendedASCII character set.
  33.    --- draw the four corners
  34. - draw vertical lines.s
  35. - Draw the horiontal lines>
  36.         
  37. ENTER LETTER =
  38.         
  39. ENTER LETTER =
  40.       
  41.       
  42.       
  43.         
  44. ENTER LETTER =
  45.         
  46. ENTER LETTER =
  47.         
  48. ENTER LETTER =
  49.      
  50.         
  51. ENTER LETTER =
  52.       
  53.         
  54. ENTER LETTER =
  55.         
  56. ENTER LETTER =
  57.         
  58. ENTER LETTER =
  59.         
  60. ENTER LETTER =
  61.         
  62. ENTER LETTER =
  63.      
  64.      
  65.      
  66.      
  67.         
  68. ENTER LETTER =
  69.         
  70. ENTER LETTER =
  71.         
  72. ENTER LETTER =
  73.         
  74. ENTER LETTER =
  75.      
  76.      
  77.         
  78. ENTER LETTER =
  79. ENTER LETTER =
  80.         
  81. ENTER LETTER =
  82.       
  83.      
  84.         
  85. ENTER LETTER =
  86.         
  87. ENTER LETTER =
  88.         
  89. ENTER LETTER =
  90.         
  91. ENTER LETTER =
  92.         
  93. ENTER LETTER =
  94.         
  95. ENTER LETTER =
  96.         
  97. ENTER LETTER =
  98. wrong
  99. cright
  100. xletter
  101.         
  102. ENTER LETTER =
  103.